home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / linkobj.d < prev    next >
Text File  |  1997-02-03  |  2KB  |  118 lines
  1.  
  2. /*
  3.  *
  4.  *    Copyright (c) 1993-1996 Algorithms Corporation
  5.  *    3020 Liberty Hills Drive
  6.  *    Franklin, TN  37067
  7.  *
  8.  *    ALL RIGHTS RESERVED.
  9.  *
  10.  *
  11.  *
  12.  */
  13.  
  14.  
  15.  
  16. defclass  LinkObject : LinkList;
  17.  
  18.  
  19. #define FIRST    gNext
  20. #define LAST    gPrevious
  21.  
  22. cvmeth    vMakeList(...)
  23. {
  24.     object    lst, obj;
  25.     MAKE_REST(self);
  26.  
  27.     lst = gNew(self);
  28.     while (obj = GetArg(object))
  29.         gAddBefore(lst, gNewWithObj(LinkValue, obj));  //  same as gAddLast
  30.     return lst;
  31. }
  32.  
  33. ivmeth    vGetValues(...)
  34. {
  35.     object    *var, seq, obj;
  36.     MAKE_REST(self);
  37.  
  38.     seq = gSequence(self);
  39.     obj = gNext(seq);
  40.     while (var = GetArg(object *)) {
  41.         *var = obj;
  42.         if (obj)
  43.             obj = gNext(seq);
  44.     }
  45.     if (obj)
  46.         gDispose(seq);
  47.     return self;
  48. }
  49.  
  50. imeth    gAddFirst(obj)
  51. {
  52.     object    lnk;
  53.  
  54.     ChkArgNul(obj, 2);
  55.     lnk = gNewWithObj(LinkValue, obj);
  56. /*    gAddFirst(super, lnk);  */
  57.     gAddAfter(self, lnk);
  58.     return self;
  59. }
  60.  
  61. imeth    gFirst()
  62. {
  63. /*    object    lnk = gFirst(super);   */
  64.     object    lnk = FIRST(self);
  65.     return lnk ? gValue(lnk) : NULLOBJ;
  66. }
  67.  
  68. imeth    gAddLast(obj)
  69. {
  70.     object    lnk;
  71.  
  72.     ChkArgNul(obj, 2);
  73.     lnk = gNewWithObj(LinkValue, obj);
  74. /*    gAddLast(super, lnk);  */
  75.     gAddBefore(self, lnk);
  76.     return self;
  77. }
  78.  
  79. imeth    gLast()
  80. {
  81. /*    object    lnk = gLast(super);  */
  82.     object    lnk = LAST(self);
  83.     return lnk ? gValue(lnk) : NULLOBJ;
  84. }
  85.  
  86. imeth    gSequence()
  87. {
  88.     return gNewWithObj(LinkObjectSequence, FIRST(self));
  89. }
  90.  
  91. imeth    gSequenceLinks()
  92. {
  93.     return gNewWithObj(LinkSequence, FIRST(self));
  94. }
  95.  
  96. imeth    gNth(int idx)
  97. {
  98.     object    r = gNth(super, idx);
  99.     return r ? gValue(r) : NULLOBJ;
  100. }
  101.  
  102.  
  103.  
  104.  
  105.  
  106. /*
  107.  *
  108.  *    Copyright (c) 1993-1996 Algorithms Corporation
  109.  *    3020 Liberty Hills Drive
  110.  *    Franklin, TN  37067
  111.  *
  112.  *    ALL RIGHTS RESERVED.
  113.  *
  114.  *
  115.  *
  116.  */
  117.  
  118.